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MODULE OPCSDEVICE 


LANGUAGE, (BLI$S3 
IDENT = 'V04-000 


H 15 
16-Sep-1984 01:28:3 VAX=-11 Bliss=-32 V4.0 
12288b-1 382 12:80:4 DISKSVMSMASTER: COPCOM 


YARRA ERATE EEA AAA REAR 


LRA REE EERE ERE RARER AREER EERE REET 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 

CLUSI VE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
FRAnSeRecOT NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HERESY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORAT ION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


BILITY FOR THE USE OR RELIABILITY OF ITS 


IBIL 
H IS NOT SUPPLIED BY DIGITAL. 


++ 
FACILITY: 


OPCOM 


ABSTRACT: 


This module contains the specialized logic to service 
a particular type of request sent by a user to OPCOM. 


Environment: 


VAX/VMS operating system. 


Author: 


Steven T. Jeffreys 


' Creation date: 


March 10, 1981 


! Revision history: 


v03-005 CWH3005 CW Hobbs 
If a device name already cont 
as it was received. If no ‘’$ 
This fixes two problems: . 
- When a dual-pathed device goes offline, we have been 


15-May-1984 
ains a ‘'$'', then use the name 
» then expand to fulldevnam,. 
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OPCSDEVICE 1. -Sep-1984 :3 VAX-11 Bliss-32 V4.0-742 2 | 

v04-000 14-Sep aati 93: $5: rs DISKSVMSMAS TER: COPCOM. SRCIDEVICE. B32" 19 * af] 

; 0058 0! reporting the good path as going offline, since by the | : 
; 0059 0! tine we bert orned the $GETOVI the device had failed over : 
; & 0060 ; to the good pat ; 
oe) 0061 : - The previous change (CWH3169) made Line printers, etc ; 
: 6¢ p06 ' show up as _LPA with no node information. We can now ; 
: o7 Beez 8 show the seltect ‘node info and avoid confusion. : 
: & 0065 8 ‘ V03-004 CWH3169 CW Hobbs 5-May-1984 ; 
; & 006 : Second pass for cluster-wide OPCOM: : 
; Oo 0067 0! - chases yore oF to SHARE_FULL_DEVNAME so that DVI$_ item ; 
; @& 0068 0! de is spec Lets uSe show pathname in messages ; 
; 69 0069 9 ' - Add OPCS Tet: for generic controller microcode not ; 
: 70 0070 ! up to rev level, convert TM78MVER and UDASOMVER to use it, : 
5 al a 4 add RC2SMVER. RORXMVER, TUBTRVER. MAYAMVER messages. ; 
3; ts 0073 0! v03-003 oe CW Hobbs 30-Jul-1983 ; 
s 7% 0074 0! Various and sundry things to make OPCOM distributed : 
. oe 0075 0! across the cluster. : 
; 0076 0! ; 
i a 0077 Q! v03-002 $TJ50798 Steven T. Jeffreys, 1-Dec-1982 ‘ 
; 0078 0! Check secondary device characteristics to detect and : 
a. 2 0079 0! handle spooled devices. ° 
; 80 0080 0! : 
54s Oy 0081 0! v03-001 RLRV3A1 Rags ort 5-Apr-1982 : 
5 as Ooe 8 Added MSGS _UDASORVER. ion MSG PUNITNO. ; 
a -b) 0084 0! v02=-003 STJ0155 Steven T. Jeffreys, 05-Feb-1982 : 
3 i i4$4 8 More mount verification message support. ‘ 
; of 0087 0! v02-002 STJ0065 Steven T. Jeffreys, 14-Jul-1981 | : 
; 0088 0! Added support for mount verification messages. : 
: 689 0089 0! : 
: 90 0090 0 !-- ; 
; Wi 0091 0 : 
; 0092 1 BEGIN ! Start of DEVICE : 
: 0093 1 : 
:; «694 0094 1 LIBRARY 'SYSSLIBRARY: LIB. L32'; 3 
; 44 BoRe : LIBRARY 'LIB$:OPCOMLIB'; : 
; Wr 0097 1 FORWARD ROUTINE : 
; «98 0098 1 DEVICE HANDLER : NOVALUE; : 
; 299 0099 1 3 
; 100 0100 1 BUILTIN ; 
: 101 0101 1 : 
: 102 0102 1 [NSOUS - ' Insert entry onto a queue s 
: 103 0103 1 REMQUE ; ! Remove entry from a queue : 
3: 104 0104 1 ; 
; 105 0105 1 EXTERNAL ROUTINE ; 
: 106 0106 1 ALLOCATE_DS ' Allocate a data structure : 
: 107 0107 1 CLUSMSG_RQCB_SEND i Send ROCB to remote nodes | 

: 108 0108 1 SHARE _FOLL_DEV NAME , ! Get full device name, including SCS nodename 

3: 109 0109 1 DEALLOCATE 1 bale NOVALUE, ' Dispose of an RQCB 

: 110 0110 #1 DUMP ' Put a random string in the log file 

> 411 11] 1 FORMAT MESSAGE, i Format a message | 

: 136 BT 1 ty: MESSAG 74 Logan nt 

: 113 113 NOTIFY_LISTED_OPERATORS: i Notify interested operators 
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16-Sep-1984 01:28:3 VAX-11 Bliss-32 V4.0-742 Page 4 
13-8 08-13be 03:88:28 DISKSVMSMASTER: (CO OM. SRCIDEVICE.B32:1> (2) | 
GLOBAL ROUTINE DEVICE_HANDLER (BUFFER_DESC) : NOVALUE = 
lee 
! Functional description: 


This routine is the handler for all device ONLINE or OFFLINE messages. 
Note that this message has a special format, different from all other 
messages. This is because the message is sent via EXESSNDEVMSG 
instead of SSNDOPR. 


53 
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Input: 


BUFFER_DESC : The address of a —— buffer descriptor that 
describes the buffer containing the message. 


Implicit Input: 


The format of the message is as follows: 
WORD <MSGS$_DEVONLIN or MSGS_DEVOFFLIND 


WORD <device unit number 
ASCIC <device name (DDC)> 


Output: 
None. 
Implict output: 


Some accounting data will be updated 
to reflect the receipt of the message. 


Side effects: 
None. 
Routine value: 


PAEAAAXAEMMIMAMAIN MN BE BBB EEE EWN ponopon nero 


ee ee ee ee ee eee ee ee eee 
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SNS OD DDD. DEDEDE DED TT BB BB BB BB BE AAAI IIiponoropeforornur 
DONAUES WN 0 OONOAU EWN 0 OO NAME WN 0 ODNAU EWN (OOD NOU EWN O OONOUS Wr 
POPOMOPOROMOMONPONONONONONONONS 2 9 9 PP SS Ss Ss Ss Ss SS Ss Ss Ss Ss SS SS 


None. 

BEGIN ! Start of DEVICE_HANDLER 
6 MAP 
68 
+4 BUF FER_DESC : Sref_bblock; 
71 LOCAL | 
72 MESSAGE_VECTOR : VECTOR C5,LONGI, ! Message info ’ 
73 DEV_CHAR1 : Sbblock COIBSK_LENGTH])! Device characteristics buffer 
74 CHAR att : $desc_block ! Descriptor for above buffer 
75 DEV_CHAR : $bblock CO18SK_LENGTH] |! Secondary characteristics 
16 CHAR_DESC2 : $desc_block, : Sec. char. buffer descriptor | 
7 DEV_CLASS : ° i Device class _ 
78 NAM_ BUF : $bblock CMAX_DEV_NAM],! Buffer for device name | 
79 NAM_DESC : $desc_block, ! Descriptor for above buffer 


oe + fa 6 
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9 
FULL_DESC : Sref_bblock, ! Pointer to descriptor returned 
MESSAGE : r ' Message code 
MSG : Sref_bblock, ' Pointer to message text 
RQCB : Sref_bblock, ' RQCB data structure 
OcD : Sref_bblock, ' OCD data structure 
OCD_COUNT LONG, ' Count of OCDs in OCD List 
OCD_ INDEX LONG, ' Index into OCD_VECTOR 
OPER_COUNT LONG, ' Count of operators in operator List 
DVI_TTEM NG, ! Name item code 
STATUS NG; 


Check the message for a minimum length. Assume minimum 
length for a device name (minus the unit #) is 2 characters. 


aia ints COSC$W_LENGTH] LSS (2+2+3) 
RETURN; 


The message must be one of the known device messages. All others | 
are ignored. Set the message code in the message vector to the 
| 


proper value. 


SG = BUFFER DESC CDSCS 
eee -MSG [0,0,16,0 


POINTER]; 


Toe fe “+ 


OF 


MSG$_DEVONLIN 
MSG$_DEVOFFLIN 
MSGS “DEVOFFLINX 


OPC$_DEVONLINE; 
OPCs +e ago 


MESSAGE VECTOR OPCS$_WRONGVOL; 
a MESSAGE _VECTOR OPCS_DEVWRILCK 
MSGS$_MVCOMPLETE MESSAGE _VECTOR OPC$-MVCOMPLETE; 


L . 
OPC$"MVABORTED; | 


MV 
MSG$_DUPUNI TNO : MESSAGE VECTOR OPC$_DUPUNI TNO 


POPRIPIPOPIPOPIPINPININIPOPINUR) 2 = tt 


WMWIMIWIIAI IRI RIPINININININININ 3 2 eS 
Ce ee ee ee ne eee wwe eflololelsilelolelelelolelolelelelololelelololololololelo) 


PARA —SOWNOUE UN “OODNAME WN ODO MEW $9 OONAUEWN OC OONAOUEWN oO 


PRIPQNOPIPGNDPONINYINININYNDPUNINYIAPIPYDITUNININIPINININININININININININININ 2 9 9 9 9 PS SS SS 


RIP LPPPDNYININPININY HAP APD CAIN CAPD LAPD CPP PINIDIPIDIPYPIPYPOPYININIPIAIPIPIADIPIPIPIPIPIPIPININPIPUNIPONOPYD 
—-_— = 


NAM_D 
NAM 


Ss 
C 
MSG$_WRONGVO 
| MSG$_DEVWRTLCK 
C 
C 
C 
C 
C 
C 
C 
T 


ES 
Format the device name into the local format. 


DE 
IF ROT $FAO (ZASCID *_!AC!UW:'> NAM_DESC, NAM_DESC, MSG (4,0,0,0], .MSG [2,0,16,0)) 


N 
RETURN; 


A 
} 
} 
S"RVABORTED” }: NESSAGEVECTOR 
] 
] 
} 
} 
] 
J 


sen canner — MESsace-V 0 £3) - Oars CTL mUC HRT: rc "UDA5SO") END 
= é 

MSG$_TM78MVER “VECTO tO} = OPC$_CTLRUCODE; 

MESSAGE _VECTO = UPLIT BYTE (ZASCIC 'TM78") END; 
MSG$_RC25MVER : BEGIN MESSAGE -VECTO 0) = OPC$_CTLRUCODE; 

MESSAGE-VECTOR C3) = UPLIT BYTE (ZASCIC 'RC25") END: | 
va, epataee * OES PE SCACE-VECTOR [3] = UPLIT BYTE. CRASCIC "RD/RX") END; 
‘abate tena eT I ee ee Cee re srust> END: 
MSG$_MAYAMVER : BEGIN MESSAGE -VECTO 9 = OPC$_CTLRUCODE: : 

MESSAGE VECTOR = UPLIT BYTE (ZASCIC "MAYA') END; | 


OTHERWISE 


SC [0,0,32,0] = MAX 
sc CDSc$A_ POINTER] 


: RETURN; 


DEV_NAM; 
= NAR_BUF; 
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0 14-Sep-1984 DISKSVMSMASTER: COPCOM. SRCIDEVICE. B32: 79 * «25 | 
: 7 § ! Expand the device name to the clusterwide format, and stick it in the local name buffer. 
; : is If the dewice name already contains a dollar sign, then use it as is. 
; $79 8 ib FULL_DESC = ‘7 CHOP IND_CH (.NAM_DESC COSCSW_LENGTH], .NAM_DESC CDSCSA_POINTER], '$') NEQ 0 | 
3 seg 0241 NAM_DESC 
; 24 0 2 SE 
> 244 024 tose ULL_DE he . pest DVI$_FULLDEVNAM)); 
> 245 0244 oar GF pub DESC pscs0 F ENGTH a Pe . DESC 6SC$A_POINTER], NAM_BUF ); 
; si$ 8 $2 NAM _besc 32,0) = .F FULCS bese bst$u LtENGTHD: 
; $78 0 23 } ont the device characteristics and put the device class code into a 
3; 249 0248 ! local variable. Note that if a device is spooled, the primary device 
3 $20 a4 characteristics are those of the intermediate device. 
‘ 
; & 0251 CHA R_DESC 0,32, AS : DIBSK bENGTH: 
; 28 O23¢ DESC1 bse cS. ERIS = EV HARI; 
> 254 025 CHA DESC uno EERGT 
> 255 0254 CHAR DESC DStsA SINTE R DEV.C HAR? : | 
> 256 P 0255 T SGETDE bEVN rk 
: for P 0256 5! LEN = CHAR DESC1 CDSCSW_LENGTH), 
>; 258 P 0257 2 PRIBUE = CHAR_DESC1, 
ee ty P 0258 2 SCDLEN = pee “DESC2 COSC$W_LENGTHI, 
; 260 P 0259 ¢ , scoeuF = CHAR_DESC2 
; 261 0260 
: $08 0261 THEN 
; 2 pceg RETU 
> 264 026 DEV_CL ASS = .DEV_CHAR1 CDIB$B_DEVCLASS); ! Assume not spooled 
; 265 0264 2 IF ~.$bblock CDEV_CHAR2 CDIBSC_DEV VCHARY DEV$V_SPLI 
; 266 0265 : AND NOT CHSEQL (.CHAR_DESC1 COSC$W_LENGTH), | 
; 267 0266 CHA Wan DESC! DSCSKe POINTER, | 
; 268 0267 2 -CHAR_DESC2 COSC$W_LENGTH) 
: 269 0268 2 -CHAR-DESC2 COSCSA-POINTERI, | 
: 270 0269 2 ic’ 
s ar 0270 § 
s ae 0271 THEN a: 
3 She Osi ¢ § DEV_CLASS = .DEV_CHAR2 CDIB$B_DEVCLASS]; ! Device is spooled | 
; 73 0274 2! Allocate an RQCB. This is necessary | 
: $f8 bSoe § to format and later issue the message. 
: 278 0277 2 IF NOT ALLOCATE_DS (RQCB_K_TYPE, RQCB) | 
; 279 0278 THE 
; $80 0279 RETURN; 
; 281 0280 ! | 
; oes 0281 i Set the operator interest mask depending on the device class. 
: it OSe¢ : Also target the message to DEVICE class operators. | 
: 38 ROCB CROCB_L_ATTNMASK1] = a; hoes -DEV_CLASS OF 
; a 86 DC$_DISK OPCS$M_NM_DISKS; 
; see 028 DC$_TAPE PCSM_NM_TAPES; 
: 89 0288 43 Se : OPCSM_NM_CARDS; 
: 90 89 DCc$_LP : OPCSM_NM_PRINT; 
: 991 90 C OTHERWISE } : OPCSM~NM~DEVICE; | 
; $93 0292 RQCB CRQCB_L_ATTNMASK1] = (.RQCB trace _L_ATTNMASK1] OR OPCSM_NM_DEVICE); 


OPCSDEVICE 
v04- 


~ 
* 
° 
° 
> 
. 
a 
° 
. 
& 
. 
° 
. 
° 
. 
° 
- 
s 
° 
. 
e 
. 
e 
2 
° 
. 
° 
. 
o 
7 
@ 
. 
e 
. 
e 
+ 
oe 
° 
. 
. 
° 
. 
6 
. 
° 
. 
e 
. 
eo 
° 
° 
. 
° 
co 
° 
o 
e 
. 
. 
° 
. 
e 
. 
° 
. 
° 
+ 
° 
© 
. 
. 
o 
. 
a 
o 
. 
. 
e 


94 
95 


9 
98 
99 


SS 


WAAIARPIPONIPONNONONUPY 2 St SS SS OOO 


COOCoOOCOOOONOO 


MO OONOAVES WN $9 OONAUSWN  OOONAY FW 0 OONOUS WW 


OOOOOSOSOSSOSOSOOSOSOCOCOSCOOCOCOOCOOCOOD OOOO OOOOOOOOOO 


WANWWWNA ANNAN A WANNANAWNWNNAI ANI 
WUAIAINIRIPINININININININ 2 2 OO OS SM OOOCOOO 


=PINIPINPINPININIMA SE BEB EE EEE EWI nnonononononononononony 
nn 


N 15 
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! 
Format the message, then send it to everyone else in the cluster 


MESSAGE_VECTOR f33 = 0; ' Use current system time 
MESSAGE VECTOR [2] = NAM_DESC; ' Set addr of dev name descriptor 
AT_MESSAGE (.RQCB, MESSAGE VECTOR); 


CLUSMSG_RQCB_SEND (=-1, CLM__DEVICE, .RQCB); ! Send it everywhere 


i Log the message, one send it to all interested operators. 


Every operator the data base is a candidate for the message. 


OCD_INDEX = MAX_SCOPE; 
WHICE (.OCD_INDEX GEQ MIN_SCOPE) DO 
BEGIN 


; Scan the OCD List for each class of operator. 


OCD_COUNT = .OCD_ VECTOR C(.OCD_INDEX - 1) * 2 + 1]; 
OCD™= .OCD_VECTOR C(.OCD_INDEX™= 1) * 2); 
WHILE (.OCB_COUNT GTR 0)~DO 

BEGIN 


i Notify every operator in the OCD's operator List. 
Also log the message for each OCD. 


RQCB CROCB_L_OCD) = .OCD: 
LOG_MESSAGE t.RQCB); 

NOTIFY LISTED OPERATORS (.RQCB); 
OCD_COONT = .OCD COUNT : 


OCD"= .OCD COCD_C_FLINK]; 
OCD_INDEX = .OCD_INDEX = 1; 
END; 


Set OCD address 

Log the message 

Inform the operators 
Decrement operator count 
Get next OCD address 


Free the raqcb 
Lh ae _fOe (.RQCB); 


Zz mm 
oso —> 
ee oof 


! End of DEVICE_HANDLER 


-TITLE OPCSDEVICE 
IDENT \V04-000\ 


-PSECT SPLITS,NOWRT,NOEXE,2 


30 35 41 44 55 05 OQ0000 P.AAA: .ASCII <5>\UDASO\ 
g 32 4D 54 04 00006 P.AAB: ASCII <4>\TM78\ 
2 4 22 4 90008 P.AAC: ASCII <4>\RC25\ 
58 52 ¢ 44 3 5 9001 P.AAD: .ASCII <5>\RD/RX\ 
1 8 55 54 04 00016 P.AAE: .ASCII <4>\TU81\ 
41 59 41 4D 04 9018 P.AAF: .ASCII <4>\MAYA\ 
3A 57 55 21 43 41 21 SF 00020 P.AAH: ASCII \ ACs \ 
oi £0008 0028 P.AAG: .LONG 17694728 
0000000 0002c ADDRESS P.AAH 
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OPCSDEVICE 1B-36 -1984 01:28:3 VAX=-11 Bliss=-32 V4.0-742 Page 8 
v04-000 12-8 8=13Re 03:88:28 DISKSVMSMASTER: LOPCOM. SRCIDEVICE.B32:1> (2) 
.EXTRN ALLOCATE_DS, CLUSMSG_ROCB_SEND 
-EXTRN SHARE FULL _DEVNAME 
-EXTRN DEALLOCATE-ROCB 
.EXTRN DUMP_LOG_FILE, FORMAT_MESSAGE 
«EXTRN LOG_MESSAGE, NOTIFY_LISTED_OPERATORS 
“EXTRN OCDIVECTOR, ROCB_K_TYPE 
-EXTRN MIN-SCOPE, MAX SCOPE 
[EXTRN SYSSFAO, SYS$GETDEV 
-PSECT $CODE$,NOWRT,2 
00FC 0000 .ENTRY DEVICE_HANDLER, Save R2,R3,R4,R5,R6,R7 : 0122 
57 0000" CF 9E 0000¢ MOVAB P.AA ; 
5E FEAB CE H 0000 MOVAB -344(SP), SP : 
50 04 AC 00 0000C MOVL §§ BUFFER_DESC, RO > 0194 
07 60 81 90019 CMPW 3s (RO), &7 ; 
: 01 1€ 0001 BGEQU 1$ : 
04 00015 RET : 
50 04 AO DO 00016 18 MOVL  4(RO), MSG + 0202 
07 60 B1 OOO1A CMPW ss (MSG). #7 + 0205 
OA 12 0001D BNEQ 2$ ; 
EC AD 00058054 8F DO OOOTF MOVL §§ #360532, MESSAGE_VECTOR F 
73 «11 90027 BRB 9$ ; 
05 60 B1 00029 2$ CMPW ss (MSG), #5 + 0206 
Oa 12 0002C BNEQ 3 F 
EC AD 0005804c &F DO O00¢E MOVL #360524, MESSAGE_VECTOR ; 
79 11 00036 BRB 11$ ; 
0050 = 8F 60 81 90038 3$ CMPW =s (MSG), #80 + 0207 
OA if 9030 BNEQ 4$ ; 
EC AD 000581BB 8F DO 0003F MOVL #360891, MESSAGE_VECTOR ; 
7E 11 00047 BRB 13$ ; 
0051 = 8F 60 B1 00049 4$ CMPW © (MSG), #81 : 0208 
OA 12 D045 BNEQ 5$ ; 
EC AD 000581C3 8F DO 0005 MOVL § #360899, MESSAGE_VECTOR ; 
6D 11 00058 BRB 13$ : 
0052 «BF 60 B1 0005A 5$ CMPW 3S s(MSG), #82 : 0209 
OA 12 0005F BNEQ 6$ : 
EC AD 000581CB  8F DO 00061 MOVL § #360907, MESSAGE_VECTOR : 
72 11 00069 BRB 15$ ; 
0054 + 8F 60 81 0006B 6$ CMPW 3 3=s (MSG), #84 + 0210 
OA if} 0070 BNEQ 7$ : 
EC AD 000581EB 8F DO 00072 MOVL § #360939, MESSAGE_VECTOR ; 
77 11 OOO7A BRB 17$ : 
0055 =F 60 B 9907¢ 7$: CMPW (MSG), #85 > 0211 
A 12 00081 BNEQ &8$ ; 
EC AD 000581F3 8F DO 00083 MOVL #360947, MESSAGE_VECTOR ; 
C 11 0008B BRB 19$ ; 
0058 =F 60 81 0008D 8$ CMPW = (MSG), #88 : 0212 
A if} 0092 BNEQ 198 ; 
EC AD 00058203 8F 00 00094 MOVL  § #360963, MESSAGE_VECTOR : 
6B 11 0009C 9$: BRB 19$ : 
0057 =F 60 81 0009E 10$: CMPW (MSG), #87 > 0213 
E if OOA BNEQ ies ; 
EC AD 000581FB 8F p 0A MOVL #360955, MESSAGE VECTOR : 
FB AD 67 9E OOOAD MOVAB P.AAA, MESSAGE_VECTOR+12 > 0214 
6D 11 0081 11$: BRB 22$ : 
005A BF 60 B81 000B3 128: CMPw (MSG), #90 : 0215 
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¢ 16 
16-Se 
14-Se 
ig 0088 
p aoeg 
ij pts 13$: 
Bi 000C9 14$: 
12 its 
DO 0000 
9E 00008 
11 QOODD 15 
By td 16 
is O0E4 
D BREE 
SE 00 34 
11 000F3 17 
B1 OOOFS 18 
12 OOOFA 
DO OOOFC 
9E 00104 
11 00109 19$: 
Bi 0010B 20$: 
13 00110 
04 Betts 
DO 00113 218: 
9E 00118 
9A 00120 22$: 
9E tH 
3C 0012A 
9F 0012E 
9F 00131 
OF 900134 
9F 00137 
FB 0013A 
E9 00141 
3A 00144 
12 OO14A 
D4 0014C 
DS OO14E 238: 
13 00150 
9E 00152 
11 00156 
9A 00158 248: 
oF Bot et 
FB 0015F 
g $195 
167 25$%: 
C $190 
A 00171 
9E 00177 
9A O15 
9E B18 
9F 00188 
a 8 
oF 00199 
9F 00196 
FB 00199 
E9 OOTA0 268: 
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#36 


VAX=11 
DISKSVMSMA 
0955, MESSAGE VECTOR 
AB, MESSAGE_VECTOR+12 
» #93 


0955, MESSAGE_VECTOR 
AC, MESSAGE_VECTOR+12 


», #94 


0955, MESSAGE VECTOR 
AD, MESSAGE _VECTOR+12 


G), #95 


0955, MESSAGE VECTOR 
AE, MESSAGE_VECTOR+12 


G), #96 


a 


0955, MESSAGE VECTOR 


P.AAF, MESSAGE_VECTOR+12 
#64, NAM_DESC 
NAM_BUF , Nan DESC +4 


2(MSG), 
4(M 


P.A 
#5, 


#36 
23$ 


DESC 
R~DESC 
AR-DESC 
R~DESC 


SPY 


G 
SYSSFAO 
, NAM_DESC, @NAM_DESC+4 


L_DESC), @4(FULL_DESC), NAM_BUF 
NAM_DESC 


L 
LL-DESC) 
6 
HAR2, CHAR_DESC2+4 


1 


Bliss-32 V4.0-742 Page 9 
STER: COPCOM.SRCIDEVICE.B32;1 (2) 


0239 


0243 


pefofofototolo) 
PANDA SE & 
Of wna eS 


D 16 
-Sep- :28: ~ iss-32 V4.0-742 Page 10 
vos. 000 <* 10280071 384 9:85:25 DL SKSUMEMASTERSCOPCOM. SACIDEVICE.B32"3 (2) 
na : 54 FF7C cp 9A ar MOVZBL DEV_CHAR +4 = CLASS 38s 
C1+4, #32, - ; 
6 Re Roe eae, ease bears : 
54 58 Re ya 0188 ; ROvzL DEV.CHAR2+*4, DEV_CLASS 0272 
000000006 F DD ans aie PUSHL #ROQCB_K_TYPE ; 
0000G CF FB b01¢7 CALLS +e ATLOCATE_ps ; 
01 8 3 Ooic¢ 288: BLES RO, 29$ 
53 E DO 001D0 29$:  MOVL  RQCB, R3 : 0284 
01 of D1 a0103 cMPL DEV_CLASS, #1 ; 
oe A pe oe ae : 
02 s o} 2910p 30S: CMPL DEV CLASS, #2 ; 0287 
oe ee eat, 2 
00000041 BF 34 D4 OIE? 31$: CMPL DEV_CLASS, #65 ; 0288 
. a a : 
; 0289 
00000043 =F 34 pt Oo1FS 328: CMPL DEV _CLASS, #67 ; 2 
a it a ae 2 
50 15 00 00203 33$:  MOVL #16, RO : 9290 
saa a3 Og atany us 5stRh Bass 
a eed FO dD Oa 0030¢ CLRL MESSAGE_VECTOR+4 : 0296 
F4 AD 04 AE 9E 00211 MOVAB NAM DESC, MESSAGE_VECTOR+8 0297 
HOS Baelgun ssnde ecto | 
00006 CF 02 FB 00218 CALLS 2. FORMAT _MESSAGE E nes 
a ties | 
7E 01 CE 00224 MNEGL #1, =(SP) ace SEND ; 
sets 55 000000006 SF 60 $099¢ movL WPAX SCOPE “OCD INDEX i 0304 
000000006 &F 32 D1 00988 35$: CPL OCD _TNDEX, #MINZSCOPE 030 
5 03 Mi Wat ASHL #1, OCD_INDEX, RO ; 0310 
- 3§ —— ooo06cF 40 00 09 45 mOVL Ocb_VECTOR-GCRO4 OCD_COUNT p= 
52 01 7 D ; 
i 8 a BS 00 3 36$: Tstt och vector ithol, ae : 0312 
19 15 00252 BLEQ Dp : 18 
54 00 00254 MOVL OCD, 36(R3) i 0 
slo 53 DD 00258 PUSHL ; 0319 
1 FB A CALLS #1, LOG_MESSAGE 
shane 6 3 DD ; 2 PUSHL R3 ; 0320 
00006 CF 1 FB 00261 CALLS #1, NOTIFY_LISTED_OPERATORS Sash 
ey ae ann 1B 
i . 
” °3 TT 00368 BRB 36$ : 031 


16 
OPCSDEVICE 1-3 =1984 01:28:3 VAX=11 Bliss-32 V4.0-742 e 11 
v04-000 12-08-1382 03:98:38 D1 SKSVMSMASTERsCOPCOM.SACIDEVICE. B32; Ai (2) 
52 D7 0026D 37$: —*DECL QCD_ INDEX : 0324 
SE bp S057) 388: PoeML RS : O39 
00006 CF 01 FB 00273 "CALLS ~=so #1, DEALLOCATE_RQCB ; 
04 00278 RET + 0332 


; Routine Size: 633 bytes, Routine Base: S$CODE$ + 0000 


; Size: 

; Elapsed Time: 
; Lines/CPU Min: 
; Lexemes/CPU-Min: 


; Compi 


OPCSDEVICE 
v04-000 


33 0384) ELUDOM 


PSECT SUMMARY 
Name Bytes 


SPLITS 
$CODES 


48 NOVEC,.NOWRT, 
633 NOVEC,NOWRT, 


Library Statistics 


File Total 
.$255$DUA28: CSYSLIBILIB.L32;1 18619 
~$255$DUA28: COPCOM.OBJJOPCOMLIB.L32;1 633 


COMMAND QUAL IF 


633 code + 48 data bytes 
; Run Time: Oo: 16-8 


: see Used: 163 pages 
ation Complete 


p=1984 12:80:48 DI SKSYMSRA 


Attributes 


RD ,NOEXE,NOSHR, 
RD , EXE,NOSHR, 


Syahols. soeeewes 
Loaded Percent 
45 0 

7 1 


IERS 


! End of DEVICE 


$-32 V4.0-742 
TER: COPCOM.SRCIDEVICE. 832; * 


LCL, REL, paged PEt both ts 
LCL, REL, CON,NOPIC,ALIGN(2) 
Pages Processing 
Mapped Time 
1000 00:01.9 
43 00:00.9 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:DEVICE/OBJ=OBJ$:DEVICE MSRC$:DEVICE/UPDATE=(ENH$: DEVICE) 
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